﻿Imports DotNetNuke.Entities.Modules

Namespace DotNetNuke.Modules.Specialty
    Partial Class Main
        Inherits PortalModuleBase

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Dim pageUrl As String = String.Empty
            pageUrl = Request.Params("go")
            If String.IsNullOrEmpty(pageUrl) Then
                pageUrl = "ManageSpecialty.ascx"
                Dim objModule As Entities.Modules.PortalModuleBase = Nothing
                objModule = CType(LoadControl(pageUrl), Entities.Modules.PortalModuleBase)
                objModule.ModuleConfiguration = ModuleConfiguration
                Controls.Add(objModule)

            ElseIf pageUrl = "EditSpecialty" Then
                pageUrl = pageUrl + ".ascx"
                Dim objModule As Entities.Modules.PortalModuleBase = Nothing
                objModule = CType(LoadControl(pageUrl), Entities.Modules.PortalModuleBase)
                objModule.ModuleConfiguration = ModuleConfiguration
                Controls.Add(objModule)
            End If

        End Sub
    End Class
End Namespace

